Resource Library: Multimedia/Resource Library: Multimedia.iso/hypercrd/imprtxpr.hqx/Import_Export Tools/cards.xml

Text File | 1992-06-18 | 152KB | 3,546 lines

card_7075.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>7075</id>
    <filler1>0</filler1>
    <bitmap>BMAP_2622.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <owner>17972</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>141</left>
            <top>29</top>
            <right>180</right>
            <bottom>46</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter</name>
        <script>on closefieldglobal lastfieldlock screenPut name of me into lastFieldif (me is not a number) thenbeepput 0 into meanswer "You must use a number between 0 and 256"elseadd 0 to meif ((me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"elseput getcharequiv(me) into cd fld (short name of me &" char")end ifend ifend closefieldon mouseenterselect text of meglobal lastfieldPut name of me into lastFieldend mouseenteron openfieldselect text of meglobal lastfieldPut name of me into lastFieldend openfield</script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>141</left>
            <top>55</top>
            <right>180</right>
            <bottom>72</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter</name>
        <script>on closefieldglobal lastfieldPut name of me into lastFieldlock screenif (me is not a number) thenbeepput 0 into meanswer "You must use a number between 0 and 256"elseadd 0 to meif ((me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"elseput getcharequiv(me) into cd fld (short name of me &" char")end ifend ifend closefieldon mouseenterselect text of meglobal lastfieldPut name of me into lastFieldend mouseenteron openfieldselect text of meglobal lastfieldPut name of me into lastFieldend openfield</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>240</left>
            <top>30</top>
            <right>328</right>
            <bottom>287</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Ascii Table</name>
        <script>on mouseUpglobal lastfieldlock screenget the clicklineif it Γëá empty thenput it into tempif lastfield is empty then put "cd fld "&quote&"field delimiter"&quote into lastfieldput the second word of temp into temp1do "put temp1 into "&lastfielddo "select text of "&lastfieldput getcharequiv(temp1) into cd fld (short name of lastfield &" char")end ifend mouseUp</script>
    </part>
    <part>
        <id>5</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>10</left>
            <top>29</top>
            <right>132</right>
            <bottom>47</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter Label</name>
        <script>on mousedownglobal AsciiITemsput asciiitems into menuItemsput me into curItemget PopUpMenu( menuItems, curItem, ¬left of card window + left of me + 1, ¬top of card window + top of me + 1 ) -- display the pop-up menuif it is empty then exit mouseDown -- nothing was selectedput it  into me -- replace the contents of the fieldend mousedown</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>10</left>
            <top>55</top>
            <right>131</right>
            <bottom>72</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter Label</name>
        <script>on mousedownglobal AsciiITemsput asciiitems into menuItemsput me into curItemget PopUpMenu( menuItems, curItem, ¬left of card window + left of me + 1, ¬top of card window + top of me + 1 ) -- display the pop-up menuif it is empty then exit mouseDown -- nothing was selectedput it  into me -- replace the contents of the fieldend mousedown</script>
    </part>
    <part>
        <id>7</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>228</left>
            <top>8</top>
            <right>342</right>
            <bottom>25</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Ascii Table Label</name>
        <script>on mousedownglobal AsciiITemsput asciiitems into menuItemsput me into curItemget PopUpMenu( menuItems, curItem, ¬left of card window + left of me + 1, ¬top of card window + top of me + 1 ) -- display the pop-up menuif it is empty then exit mouseDown -- nothing was selectedput it  into me -- replace the contents of the fieldend mousedown</script>
    </part>
    <part>
        <id>13</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>17</left>
            <top>176</top>
            <right>187</right>
            <bottom>289</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>Fields to Ignore</name>
        <script></script>
    </part>
    <part>
        <id>14</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>21</left>
            <top>127</top>
            <right>183</right>
            <bottom>170</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>Field Ignore Label</name>
        <script></script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>385</left>
            <top>255</top>
            <right>432</right>
            <bottom>288</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>2162</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Return</name>
        <script>on mouseUplock screengo backsetlocationcheckmark(short name of this card)if number of this card > 1 thenput cd fld "Field Delimiter" of cd ¬"parameters" into cd fld "Field Delimiter"put cd fld "record delimiter" of cd ¬"parameters" into cd fld "record Delimiter"end ifend mouseUp</script>
    </part>
    <part>
        <id>24</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>392</left>
            <top>214</top>
            <right>424</right>
            <bottom>243</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1011</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go Home</name>
        <script>on mouseUpgo homeend mouseUp</script>
    </part>
    <part>
        <id>25</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>183</left>
            <top>31</top>
            <right>223</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Courier</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter Char</name>
        <script></script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>183</left>
            <top>57</top>
            <right>223</right>
            <bottom>74</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Courier</font>
        <textSize>12</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter Char</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>3</id>
        <text><span class="style57">  NUL2  SOH 3  STX4  ETX5  ENX6  ACK7  BEL8  BS9  TAB     10  LF11  VT12  FF13  CR14  SO15  SI16  DLE17  DC118  DC219  DC320  DC421  NAK22  SYN23  ETB24  CAN25  EM26  SUB27  ESC28  FS29  GS30  RS31  US32  sp33  !34  "35  #36  $37  %38  &39  '40  (41  )42  *43  +44  ,45  -46  .47  /48  049  150  251  352  453  554  655  756  857  958  :59  ;60  <61  =62  >63  ?64  @65  A66  B67  C68  D69  E70  F71  G72  H73  I74  J75  K76  L77  M78  N79  O80  P81  Q82  R83  S84  T85  U86  V87  W88  X89  Y90  Z91  [92  \93  ]94  ^95  _96  `97  a98  b99  c100  d101  e102  f103  g104  h105  i106  j107  k108  l109  m110  n111  o112  p113  q114  r115  s116  t117  u118  v119  w120  x121  y122  z123  {124  |125  }126  ~127  DEL128  Ä129  Å130  Ç131  É132  Ñ133  Ö134  Ü135  á136  à137  â138  ä139  ã140  å141  ç142  é143  è144  ê145  ë146  í147  ì148  î149  ï150  ñ151  ó152  ò153  ô154  ö155  õ156  ú157  ù158  û159  ü160  †161  °162  ¢163  £164  §165  •166  ¶167  ß168  ®169  ©170  ™171  ´172  ¨173  ≠174  Æ175  Ø176  ∞177  ±178  ≤179  ≥180  ¥181  µ182  ∂183  ∑184  ∏185  π186  ∫187  ª188  º189  Ω190  æ191  ø192  ¿193  ¡194  ¬195  √196  ƒ197  ≈198  ∆199  «200  »201  …202   203  À204  Ã205  Õ206  Œ207  œ208  –209  —210  “211  ”212  ‘213  ’214  ÷215  ◊216  ÿ217  Ÿ218  ⁄219  €220  ‹221  ›222  fi223  fl224  ‡225  ·226  ‚227  „228  ‰229  Â230  Ê231  Á232  Ë233  È234  Í235  Î236  Ï237  Ì238  Ó239  Ô240  241  Ò242  Ú243  Û244  Ù245  ı246  ˆ247  ˜248  ¯249  ˘250  ˙251  ˚252  ¸253  ˝254  ˛255  ˇ256  </span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>5</id>
        <text>Field Delimiter</text>
    </content>
    <content>
        <layer>card</layer>
        <id>6</id>
        <text>Record Delimiter</text>
    </content>
    <content>
        <layer>card</layer>
        <id>1</id>
        <text>9</text>
    </content>
    <content>
        <layer>card</layer>
        <id>7</id>
        <text>Ascii Reference</text>
    </content>
    <content>
        <layer>card</layer>
        <id>14</id>
        <text>Field Keywords to Ignore in Search for Background Field Names</text>
    </content>
    <content>
        <layer>card</layer>
        <id>13</id>
        <text>labelsortorder</text>
    </content>
    <content>
        <layer>card</layer>
        <id>2</id>
        <text>13</text>
    </content>
    <content>
        <layer>card</layer>
        <id>25</id>
        <text> TAB     </text>
    </content>
    <content>
        <layer>card</layer>
        <id>26</id>
        <text> CR</text>
    </content>
    <name>Parameters</name>
    <script>on opencardglobal lastfieldlock screenput empty into lastfieldset the scroll of cd field "ascii table" to 0end opencardon arrowkey--end arrowkeyon returnkey--end returnkeyfunction GetCharEquiv numput line num of cd fld "ascii table" into tempget length of numreturn char (it + 2) to 10 of tempend getcharequiv</script>
</card>


card_2103.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2103</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3665.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <owner>17972</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>71</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>69</top>
            <right>169</right>
            <bottom>278</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>iStack Fields</name>
        <script>on mouseDownget the value of the clicklineif it is empty then exit mouseDownglobal iPopItemsget PopUpMenu(iPopItems,"1",left of me + 1,the MouseV + 12)if item 1 of it is 0 then exit mouseDown -- nothing was selectedput item 2 of it into the clickline -- replace the contents of the fieldend mouseDown</script>
    </part>
    <part>
        <id>72</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>182</left>
            <top>69</top>
            <right>334</right>
            <bottom>278</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>jstack fields</name>
        <script>on mouseDownif cd fld "jstack name" is empty then exit mousedownget the value of the clicklineif it is empty then exit mouseDownglobal jPopItemsget PopUpMenu(jPopItems,"1",left of me + 1,the MouseV + 12)if item 1 of it is 0 then exit mouseDown -- nothing was selectedput item 2 of it into the clickline -- replace the contents of the fieldend mouseDown</script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>460</left>
            <top>257</top>
            <right>492</right>
            <bottom>300</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Seps</name>
        <script></script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>355</left>
            <top>15</top>
            <right>437</right>
            <bottom>37</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go</name>
        <script>on mouseUpget textfont of meif it is "chicago gray" then exit mouseUpstacktostackend mouseUp</script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>379</left>
            <top>173</top>
            <right>411</right>
            <bottom>190</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter</name>
        <script>on closefieldif ((me is not a number) or (me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"end ifend closefield</script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>366</left>
            <top>142</top>
            <right>426</right>
            <bottom>168</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter Label</name>
        <script></script>
    </part>
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>381</left>
            <top>231</top>
            <right>413</right>
            <bottom>249</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter</name>
        <script>on closefieldif ((me is not a number) or (me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"end ifend closefield</script>
    </part>
    <part>
        <id>44</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>368</left>
            <top>202</top>
            <right>427</right>
            <bottom>227</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter Label</name>
        <script></script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>269</top>
            <right>442</right>
            <bottom>290</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23753</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Illuminate</name>
        <script></script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>270</top>
            <right>442</right>
            <bottom>290</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About Hiliter</name>
        <script>on mouseUp-- Requires handler: toggleTip-- card field "Hidden" is a hidden field containing the tip infolock screenset the visible of cd fld "Hidden" to trueset scroll of cd fld "hidden" to 0unlock screen with visual zoom open fastend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>182</left>
            <top>48</top>
            <right>319</right>
            <bottom>67</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textHeight>16</textHeight>
        <name>jbackground to use</name>
        <script>on mouseDownglobal jBackPopglobal jcurrentbkgndglobal jPopItemsglobal importstackglobal jBackItemglobal jnumfieldsif textfont of me is "chicago gray" then exit mousedownput jbackitem into curmenuitemif curmenuitem is empty then put 1 into curmenuitemget PopUpMenu(jBackPop,curmenuitem,"","-1" ) -- display the pop-up menuset cursor to busyif it is empty then exit mouseDown -- nothing was selectedif item 1 of it is 0 then exit mouseDown -- nothing was selectedif item 1 of it is jbackitem then exit mousedownput item 1 of it into jbackitemput item 2 of it into medolock(true)if it is jbackitem then exit mousedownput me into tempput cd fld "fields to ignore" of cd "parameters" into ignoresput replace(return,",",ignores) into ignoresput the name of this card into cardidpush cardgo to importstackget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into jnumfieldsput char temp1 to length(it) of it into jPopItemsif jnumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(importstack)&"ΓÇ¥ has no background fields!"myPop(cardid)DisableFieldselsemyPop(cardid)testenableend ifset cursor to busyget replace("[checkmark]","[]",jBackPop)put replace(temp&"[]",temp&"[checkmark]",it) into jBackPopdolock(false)end mouseDown</script>
    </part>
    <part>
        <id>87</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>26</left>
            <top>29</top>
            <right>138</right>
            <bottom>43</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>iStack Name</name>
        <script></script>
    </part>
    <part>
        <id>88</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>204</left>
            <top>29</top>
            <right>317</right>
            <bottom>44</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>jStack Name</name>
        <script></script>
    </part>
    <part>
        <id>91</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>4</left>
            <top>47</top>
            <right>140</right>
            <bottom>66</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textHeight>16</textHeight>
        <name>iBackground to use</name>
        <script>on mouseDownget textfont of meif it is "chicago gray" then exit mousedownglobal iBackPopglobal icurrentbkgndglobal iPopItemsglobal exportstackglobal iBackItemglobal dontCloseglobal inumfieldsput ibackitem into curmenuitemif curmenuitem is empty then put 1 into curmenuitemget PopUpMenu(iBackPop,curmenuitem,"","-1" ) -- display the pop-up menuset cursor to busyif it is empty then exit mouseDown -- nothing was selectedif item 1 of it is 0 then exit mouseDown -- nothing was selectedif item 1 of it is ibackitem then exit mousedownput item 2 of it into me -- replace the contents of the fielddolock(true)put item 1 of it into ibackitemput cd fld "fields to ignore"  of cd "parameters" into ignoresput replace(return,",",ignores) into ignoresput me into tempput the name of this card into cardidpush cardgo exportstackget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into inumfieldsput char temp1 to length(it) of it into iPopItemsif inumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(exportstack)&"ΓÇ¥ has no background fields!"myPop(cardid)DisableFieldselsemyPop(cardid)testenableend ifset cursor to busyput replace("checkmark","",iBackPop) into iBackPopput replace(me&"[]",me&"[checkmark]",ibackpop) into iBackpopdolock(false)end mouseDown</script>
    </part>
    <part>
        <id>93</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>25</left>
            <top>2</top>
            <right>126</right>
            <bottom>25</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open Stack</name>
        <script>on mouseUpglobal exportstackglobal ibackPopglobal iPopItemsglobal ibackitemglobal inumfieldsif the short name of me is "Open Stack" thenanswer file "Import fields from which stack?" of type "STAK" -- Γêåif it is empty or the result is "Cancel" thendisableitems("i")testenableput empty into message boxexit MouseUpend ifput it into exportstackset cursor to busyput "Getting information from stack..." into message boxdolock(true)put leafname(exportstack) into cd fld "iStack Name"put cd fld "fields to ignore" of cd "parameters" into Ignoresput replace(return,",",ignores) into ignoresput the name of this card into cardidpush cardset cursor to busygo exportstackput getforeignbkgnds() into ibackPopput char 1 to (offset("[",iBackPop) -1) of ibackPop into tempget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into inumfieldsput char temp1 to length(it) of it into iPopItemsif inumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(exportstack)&"ΓÇ¥ has no background fields!"lock screenDisableFieldsend ifmyPop(cardid)put temp into cd field "ibackground to use"put 1 into ibackitemenableItems("i")testenabledolock(false)put empty into message boxelse if the short name of me is "Close Stack" thendisableitems("i")testenableend ifend mouseUp</script>
    </part>
    <part>
        <id>94</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>203</left>
            <top>3</top>
            <right>304</right>
            <bottom>26</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Open Stack</name>
        <script>on mouseUpglobal importstackglobal jbackPopglobal jPopItemsglobal jbackitemglobal jnumfieldsif the short name of me is "Open Stack" thenanswer file "Export fields into which stack?" of type "STAK" -- Γêåif it is empty or the result is "Cancel" thendisableitems("j")testenableput empty into message boxexit MouseUpend ifput it into importstackset cursor to busyput "Getting information from stack..." into message boxdolock(true)put leafname(importstack) into cd fld "jStack Name"put cd fld "fields to ignore" of cd "parameters" into Ignoresput replace(return,",",ignores) into ignoresput the name of this card into cardidpush cardset cursor to busygo importstackput getforeignbkgnds() into jbackPopput char 1 to (offset("[",jBackPop) -1) of jbackPop into tempget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into jnumfieldsput char temp1 to length(it) of it into jPopItemsif jnumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(importstack)&"ΓÇ¥ has no background fields!"lock screenDisableFieldsend ifmyPop(cardid)put temp into cd field "jbackground to use"put 1 into jbackitemenableItems("j")testenabledolock(false)put empty into message boxelse if the short name of me is "Close Stack" thenlock screendisableitems("j")testenableend ifend mouseUp</script>
    </part>
    <part>
        <id>116</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>356</left>
            <top>69</top>
            <right>377</right>
            <bottom>88</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Label</name>
        <script></script>
    </part>
    <part>
        <id>115</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>69</top>
            <right>431</right>
            <bottom>88</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Label</name>
        <script></script>
    </part>
    <part>
        <id>119</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>5</left>
            <top>27</top>
            <right>26</right>
            <bottom>46</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>iStack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>69</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>139</left>
            <top>69</top>
            <right>186</right>
            <bottom>278</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field to Field</name>
        <script></script>
    </part>
    <part>
        <id>118</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>184</left>
            <top>28</top>
            <right>205</right>
            <bottom>47</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>jStack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>112</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>317</left>
            <top>69</top>
            <right>335</right>
            <bottom>278</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>MultiScroll</name>
        <script>on mouseDownglobal initScrollput the rect of me into myRectMultiScroll myRect,"72,card","71,card"put the scroll of card field id 72 into initScrollend mouseDownon mouseWithinMultiScroll Initend mouseWithinon mouseLeaveMultiScroll UnInitend mouseLeave</script>
    </part>
    <part>
        <id>121</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>350</left>
            <top>265</top>
            <right>384</right>
            <bottom>293</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1011</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go Home</name>
        <script>on mouseUpgo homeend mouseUp</script>
    </part>
    <part>
        <id>109</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>65529</left>
            <top>65528</top>
            <right>8</right>
            <bottom>8</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>thumb</name>
        <script>on mouseDownglobal y1, ratio, inc, lineCount, x2hide button "page" -- hide page button alsohide button "thumb" -- hide the buttons so real scroll can take over-- set lockScreen to trueclick at the clickLocclick at the clickLoc  -- I don't know why you need 2 but it works-- program flow holds here until HyperCard finishes with scrolling-- the below captures scroll valueput the scroll of card field id 72 into lineScroll-- the below passes it on to other fieldset the scroll of card field id 71 to lineScroll-- the below translates lineScroll into thumb coordinateset loc of button "thumb" to x2,(trunc( lineScroll /1) + y1)show button "thumb" -- put buttons back upshow button "page"-- translate into lineCountput trunc( lineScroll / inc) into lineCountend mouseDown</script>
    </part>
    <part>
        <id>122</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>357</left>
            <top>104</top>
            <right>393</right>
            <bottom>137</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20327</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Load from Disk</name>
        <script>on mouseUpif short name of cd button id 93 is "Close Stack"¬and short name of cd button id 94 is "close Stack" thenanswer file "Load fieldname lists from:" of type TEXTif it ≠ empty thenput it into listnameput numtochar (3) into listendlock screenopen file listnameread from file listname until listendput it into tempif number of lines of temp = number of lines of ¬cd fld "istack fields" thenput char 1 to (length of it - 1) of temp into cd fld "istack fields"elsebeepanswer "This field list does not match these stacks!"close file listnameexit MouseUpend ifread from file listname until listendput it into tempput char 1 to (length of it - 1) of temp into cd fld "jstack fields"close file listnameend ifelseexit mouseUpend ifend mouseUp</script>
    </part>
    <part>
        <id>123</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>404</left>
            <top>105</top>
            <right>440</right>
            <bottom>138</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-106</titleWidth>
        <icon>-15648</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Save to Disk</name>
        <script>on mouseUpif short name of cd button id 93 is "Close Stack"¬and short name of cd button id 94 is "close Stack" thenask file "Save this fieldname list as:"if it ≠ empty thenput it into filenameput numtochar (3) into listendopen file filenamewrite cd fld "istack fields" & listend to file filenamewrite cd fld "jstack fields" & listend to file filenameclose file filenameend ifelseexit mouseUpend ifend mouseUp</script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>1</top>
            <right>448</right>
            <bottom>295</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Hidden</name>
        <script>on mousedownset the visible of me to falseend mousedown</script>
    </part>
    <part>
        <id>126</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>6</left>
            <top>279</top>
            <right>264</right>
            <bottom>296</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Use RTF to Retain Styles? (Increases time)</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>26</id>
        <text>rr</text>
    </content>
    <content>
        <layer>card</layer>
        <id>30</id>
        <text><span class="style38">                        Stack to Stack</span><span class="style14">ΓÇó Open the left ("from") stack and the right ("to") stack. You may change the selected background by using the pop-up menu under the stack name. The "field selection" fields beneath the background pop-ups will not show up until you have opened both stacks.ΓÇó Select the fieldnames to use. Each line of the "field selection" fields is a pop-up menu, and may be used to select the name of any field of the selected background. If you hold the mouse down and then release it, the line will revert to "None". Each field name selected on the left should have a corresponding field name selected on the right.ΓÇó If you wish to save the field lists you created for another transfer between the same stacks (or similiar stacks with identical field names) you can hit the button with the arrow pointing to the diskette. Likewise, you can load a saved field list by hitting the button with the arrow pointing away from the diskette. The Tools will alert you if the field list you have loaded does not match the stacks you have chosen.ΓÇó Field and record delimiters may be changed by selecting the "Parameters" item from the "Go To" menu. There is an ascii table to help you find a delimiter. The standard settings are field: tab (9) and record: return(13), but these will not work if you have carriage returns in text fields.ΓÇó After the stacks, backgrounds and field names have been selected, hit the </span><span class="style21">"Go"</span><span class="style14"> button to start the process. You may abort the process at any time by clicking the mouse.</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>42</id>
        <text>Field Delimiterer</text>
    </content>
    <content>
        <layer>card</layer>
        <id>44</id>
        <text>Record Delimiter</text>
    </content>
    <content>
        <layer>card</layer>
        <id>40</id>
        <text>9</text>
    </content>
    <content>
        <layer>card</layer>
        <id>43</id>
        <text>13</text>
    </content>
    <content>
        <layer>card</layer>
        <id>62</id>
        <text>file cards</text>
    </content>
    <content>
        <layer>card</layer>
        <id>91</id>
        <text>bkgnd id 3826</text>
    </content>
    <name>Stack -> Stack</name>
    <script>on idleglobal initScrollrepeat with i = 1 to 2get the scroll of card field iif it is not initScroll thenput it into initScrollMultiScroll it,"72,card","71,card"end ifend repeatpass idleend idleon arrowkey--trapend arrowkeyon opencardlock screenput cd fld "Field Delimiter" of cd¬"parameters" into cd fld "Field Delimiter"put cd fld "record delimiter" of cd¬"parameters" into cd fld "record Delimiter"if RTFisHere() then set visible of cd Button id 126 to trueelseset visible of cd button id 126 to falseend ifend opencardon returnkeyif the visible of cd fld "hidden" is false then send mouseUp to cd button id 38elseclick at 50,50end ifend returnkey----------Import Text Operations-------------------------------------on importTextFile-- import text from a text file stored in the correct formatglobal filenameglobal importstackglobal exportstackglobal thejFieldglobal impbkgndglobal fieldendglobal recordendglobal ConvertRTFset cursor to busydolock(true)put "Setting up parameters for import..." into message boxopen file filenameput false into exitLoopgo importstackput leafname(importstack) into imfilego to last card of bkgnd impbkgndput 0 into ImpNumput the seconds into timenowput the number of items of thejField into NumImFieldsrepeat until exitLoopif the mouseClick thenanswer "Stop importing text?" with "No" or "Yes" -- ∆if it is "Yes" then exit repeat -- jend ifsend "doMenu New Card" to HyperCardif not (exitloop) thenrepeat with rr = 1 to NumImFieldsput item rr of thejField into targetfieldif (NumImFields is 1) thenget readfile (filename, recordend)if it is empty thensend "doMenu Delete Card" to HyperCardput true into exitLoopexit repeatend ifelse if rr is 1 thenget readfile (filename, fieldend)if it is empty thensend "doMenu Delete Card" to HyperCardput true into exitLoopexit repeatend ifelse if rr < NumImFields thenget readfile (filename, fieldend)else if rr is NumImFields thenget readfile (filename, recordend)end ifput it into temprepeat while ((last char of temp is fieldend) or (last char of temp is recordend))delete last char of tempend repeatif targetfield ≠ empty then----------------------RTF-----------------------------if ConvertRTF thendo "get RTFtoField (temp, false, "&quote&targetfield&quote&")"if it <> "" thenanswer itput true into exitloopexit repeatend if----------------------------RTF-----------------------------elseif (targetfield contains "bkgnd field id") thenif ((targetfield is empty)  or (temp ≠ "true") or (temp ≠ "false")) thendo "put temp into "&targetfieldelsedo "put return&temp after "&targetfieldend ifelseif ((bkgnd field targetfield is empty)  or (temp ≠ "true") or (temp ≠ "false")) thendo "put temp into bkgnd field "&quote&targetfield&quoteelsedo "put return&temp after bkgnd field "&quote&targetfield&quoteend ifend ifend ifend ifend repeatend ifif not(exitloop) thenadd 1 to impnumput "Record "&impnum&&"imported into "&imfile into message boxend ifend repeatclose file fileNamebeepput "Transfer Done" into message boxend importTextFile----------------General Procedure--------------on stacktostack-- Requires handler: writeExportedTextput empty into message boxglobal exportstackglobal importstackglobal fieldendglobal recordendglobal filenameglobal Impbkgndglobal theifieldglobal thejfieldglobal ConvertRTFput false into ConvertRTFdolock(true)put cd fld "ibackground to use" into expbkgndput cd fld "jbackground to use" into impbkgndput numtochar of cd fld "Field Delimiter" into fieldendput numtochar of cd fld "record delimiter" into recordendput "TempExportFile" into fileNameput the name of this card into cardidif (the hilite of cd button id 126) then put true into ConvertRTFgetbkfieldspush cardgo first card of bkgnd expbkgnd of stack exportstackgo first card of bkgnd impbkgnd of stack importstackput true into useAllCardsanswer "Export which cards?" with "Cancel" or "Marked" or "All"if it is "Cancel" then exit stacktostackif it is "Marked" then put false into useAllCardsif (writeExportedText (fileName,expbkgnd,UseAllCards)) thenimporttextfileend ifmypop(cardid)dolock(false)put empty into message boxdisableitems idisableitems jtestenableend stacktostack--------------------  Export Text Operations  -------------------------function writeExportedText fileName,thisbkgnd,UseAllCardsglobal fieldendglobal recordendglobal theifieldglobal exportstackglobal ConvertRTFput leafname(exportstack) into exfilelock screengo exportstackopen file fileNameput false into ExitLoopif useAllCards thengo card 1 of bg thisbkgndput number of cards in this background into numCardselsego first marked cardput number of marked cards into numCardsend ifput the number of items in theiField into numfieldsput 0 into currentCardrepeat with currentCard = 1 to numCardsif the mouseClick thenanswer "Stop exporting text?" with "No" or "Yes" -- ∆if it is "Yes" thenclose file fileNamereturn falseexit writeExportedTextend ifend ifset cursor to busyif short name of this background ≠ thisbkgnd then exit repeatput empty into TheTextrepeat with rr = 1 to numfieldsput item rr of theiField into targetfieldif (ConvertRTF) thenget fieldtoRTF(false, targetfield)if word 1 of it is "error" thenanswer itput true into exitloopexit repeatelseput it & fieldend after theTextend ifelseif (targetfield contains "bkgnd field id") thendo "get "&targetfieldelseget bkgnd fld targetfieldend ifput it & fieldend after theTextend ifend repeatput "Card "&currentCard&&"exported from "&exfile into message boxwrite theText&recordend to file fileNameif not useAllCards then go next marked cardelse go next card of this bkgndend repeatclose file fileNameunlock screenreturn trueend writeExportedText------------------------Utilties-----------------------------------on toggleTip visStatus,theFieldlock screenif visStatus thenput "open" into theVisEffect-- card field id theField is a hidden field on this cardset the scroll of cd fld id theField to 0 -- scroll to the topelse put "close" into theVisEffectset the visible of cd fld id theField to visStatusset the hilite of cd btn id (id of cd button "About Hiliter") to visStatus -- "about hiliter"unlock screen with visual zoom theVisEffectend toggleTipon GetBkFieldsglobal theiFieldglobal thejFieldput empty into theiFieldput empty into thejFieldrepeat with rr = 1 to (number of lines of cd fld "istack fields")put line rr of cd field "iStack Fields" into tempfieldif tempfield ≠ "None" and tempfield ≠ empty thenput tempfield & "," after theiFieldput line rr of cd field "jStack Fields" & "," after thejFieldelseend ifend repeatend getBkfieldson enableItems param1if param1 is "i" thenput "93" into param2put "87" into param3put "71" into param4elseput "94" into param2put "88" into param3put "72" into param4end ifdo "show cd button "&quote&param1&"stack Chosen Label"&quotedo "set name of cd button id "&param2&" to "&quote&"Close Stack"&quotedo "set the textfont of cd fld "&quote¬&param1&"background to use"&quote&" to chicago"return trueend enableItemson Disableitems param1if param1 is "i" thenput "93" into param2put "87" into param3put "71" into param4elseput "94" into param2put "88" into param3put "72" into param4end ifdo "hide cd button "&quote&param1&"stack Chosen Label"&quotedo "set name of cd button id "&param2&" to "&quote&"Open Stack"&quotedo "put empty into cd fld id "&param3do "put empty into cd fld id "&param4do "set the textfont of cd fld "&quote¬&param1&"background to use"&quote&" to chicago gray"return trueend DisableItemson Initfields number, zerocounterif zerocounter > 0 thenrepeat with rr = 1 to numberput "None" into line rr of cd field id 71put "None" into line rr of cd field id 72if (rr < 25) then put "----->" into line rr of cd field id 69end repeatend ifend initfieldsOn TestEnableglobal inumfields,jnumfieldslock screenif ((short name of cd button id 93 is "Close Stack") and ¬(short name of cd button id 94 is "Close Stack")) thenset textfont of cd button id 38 to chicagoset autohilite of cd button id 38 to trueset visible of cd button "multiscroll" to trueglobal initScrollput 0 into initScrollset the icon of cd button id 122 to "load from disk black"set the autohilite of cd button id 122 to trueset the icon of cd button id 123 to "save to disk black"set the autohilite of cd button id 123 to trueMultiScroll 0,"72,card","71,card"initfields max(inumfields,jnumfields), min(inumfields,jnumfields)elseset textfont of cd button id 38 to chicago grayset autohilite of cd button id 38 to falseput empty into cd fld "field to field"set visible of cd button "multiscroll" to falseset the icon of cd button id 122 to "load from disk grey"set the autohilite of cd button id 122 to falseset the icon of cd button id 123 to "save to disk grey"set the autohilite of cd button id 123 to falseput empty into cd fld id 71put empty into cd fld id 72end ifend testenableon DisableFieldsput empty into cd fld "field to field"set visible of cd button "multiscroll" to falseput empty into cd fld id 71put empty into cd fld id 72end DisableFields</script>
</card>


card_8359.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>8359</id>
    <filler1>0</filler1>
    <bitmap>BMAP_8669.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <owner>17972</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>460</left>
            <top>257</top>
            <right>492</right>
            <bottom>300</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Seps</name>
        <script>on mouseDownglobal PopItemsput PopItems into menuItemsget PopUpMenu( menuItems, curItem, ¬left of card window + left of me + 1, ¬top of card window + top of me + 1 ) -- display the pop-up menuif it is empty then exit mouseDown -- nothing was selectedput item it of menuItems into me -- replace the contents of the fieldend mouseDown</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>333</left>
            <top>17</top>
            <right>435</right>
            <bottom>41</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Select Stack</name>
        <script>on mouseUpglobal exportStackglobal fbackPopglobal fPopItemsglobal fbackitemglobal fnumfieldsif the short name of me is "Select Stack" thenanswer file "Export text from which stack?" of type "STAK" -- Γêåif it is empty or the result is "Cancel" thendisableitemsput empty into message boxexit MouseUpend ifput it into exportstackset cursor to busydolock(true)put leafname(exportstack) into cd fld "Stack Name"put "Getting background names from "&cd fld "Stack Name" into message boxput cd fld "fields to ignore" of cd "Parameters" into Ignoresput replace(return,",",ignores) into ignoresput the name of this card into cardidpush cardgo exportstackput getforeignbkgnds() into fbackPopput "Getting background field names..." into message boxput char 1 to (offset("[",fBackPop) -1) of fbackPop into tempget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into fnumfieldsput char temp1 to length(it) of it into fPopItemsif fnumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(exportstack)&"ΓÇ¥ has no background fields!"end ifmyPop(cardid)put temp into cd fld "background to use"put 1 into fbackitemenableItemsput "Initializing pop-up menus..." into message boxinitstackfieldsdolock(false)put "Select fields to use ..." into message boxelseexportTExtdisableItemsend ifend mouseUp</script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>366</left>
            <top>170</top>
            <right>398</right>
            <bottom>188</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter</name>
        <script>on closefieldif ((me is not a number) or (me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"end ifend closefield</script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>358</left>
            <top>139</top>
            <right>407</right>
            <bottom>165</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter Label</name>
        <script></script>
    </part>
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>365</left>
            <top>226</top>
            <right>397</right>
            <bottom>244</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter</name>
        <script>on closefieldif ((me is not a number) or (me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"end ifend closefield</script>
    </part>
    <part>
        <id>44</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>358</left>
            <top>195</top>
            <right>407</right>
            <bottom>221</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter Label</name>
        <script></script>
    </part>
    <part>
        <id>48</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>4</left>
            <top>24</top>
            <right>193</right>
            <bottom>44</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textHeight>16</textHeight>
        <name>Background to Use</name>
        <script>on mouseDownglobal fBackPopglobal fcurrentbkgndglobal fPopItemsglobal exportStackglobal fBackItemglobal fnumfieldsget the textfont of meif it is "chicago gray" then exit mouseDownput fbackitem into curmenuitemif curmenuitem is empty then put 1 into curmenuitemget PopUpMenu(fBackPop,curmenuitem,"","-1" ) -- display the pop-up menuset cursor to busyif item 1 of it is 0 then exit mouseDown -- nothing was selectedif item 1 of it is fbackitem then exit mousedownput item 2 of it into me -- replace the contents of the fielddolock(true)put item 1 of it into fbackitemput cd fld "fields to ignore" of cd "parameters" into ignoresput replace(return,",",ignores) into ignoresput me into tempput the name of this card into cardidpush cardgo to exportstackget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into fnumfieldsput char temp1 to length(it) of it into fPopItemsif fnumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(exportstack)&"ΓÇ¥ has no background fields!"end ifmyPop(cardid)set cursor to busyinitstackfieldsput replace("checkmark","",fBackPop) into fBackPopput replace(me&"[]",me&"[checkmark]",fbackpop) into fBackpopdolock(false)end mouseDown</script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>270</top>
            <right>441</right>
            <bottom>291</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23753</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Illuminate</name>
        <script></script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>408</left>
            <top>270</top>
            <right>441</right>
            <bottom>290</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About Hiliter</name>
        <script>on mouseUp-- Requires handler: toggleTip-- card field "Hidden" is a hidden field containing the tip infolock screenset the visible of cd fld "Hidden" to trueset scroll of cd fld "hidden" to 0unlock screen with visual zoom open fastend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>99</left>
            <top>69</top>
            <right>268</right>
            <bottom>87</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Select Label</name>
        <script></script>
    </part>
    <part>
        <id>68</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>339</left>
            <top>52</top>
            <right>430</right>
            <bottom>76</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Cancel</name>
        <script>on mouseUpget textfont of meif it is "chicago gray" then exit mouseUplock screendisableitemsput empty into message boxend mouseUp</script>
    </part>
    <part>
        <id>74</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>9</left>
            <top>4</top>
            <right>30</right>
            <bottom>23</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>73</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>31</left>
            <top>6</top>
            <right>193</right>
            <bottom>21</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>Stack Name</name>
        <script></script>
    </part>
    <part>
        <id>72</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>48</top>
            <right>192</right>
            <bottom>257</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>eFields</name>
        <script>on mouseDownif cd fld "stack name" is empty then exit mousedownget the value of the clicklineif it is empty then exit mouseDownglobal fPopItemsget PopUpMenu(fPopItems,"1",left of me + 1,the MouseV + 12)if item 1 of it is 0 then exit mouseDown -- nothing was selectedput item 2 of it into the clickline -- replace the contents of the fieldend mouseDown</script>
    </part>
    <part>
        <id>77</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>346</left>
            <top>89</top>
            <right>367</right>
            <bottom>108</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Label</name>
        <script></script>
    </part>
    <part>
        <id>78</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>397</left>
            <top>90</top>
            <right>421</right>
            <bottom>108</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12195</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Label</name>
        <script></script>
    </part>
    <part>
        <id>80</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>7</left>
            <top>259</top>
            <right>142</right>
            <bottom>277</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <true /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Export Field Header?</name>
        <script></script>
    </part>
    <part>
        <id>81</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>7</left>
            <top>279</top>
            <right>171</right>
            <bottom>295</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Remove CR's from fields?</name>
        <script></script>
    </part>
    <part>
        <id>82</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>199</left>
            <top>49</top>
            <right>305</right>
            <bottom>73</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Use All Fields</name>
        <script>on mouseUpif textfont of me is "chicago gray" then exit mouseUPglobal fPopITemsset cursor to busylock screeninitstackfieldsChooseAllFields fPopItems,"cd fld id 72"end mouseUp</script>
    </part>
    <part>
        <id>83</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>339</left>
            <top>263</top>
            <right>371</right>
            <bottom>292</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1011</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go Home</name>
        <script>on mouseUpgo homeend mouseUp</script>
    </part>
    <part>
        <id>84</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>205</left>
            <top>83</top>
            <right>241</right>
            <bottom>116</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20327</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Load from Disk</name>
        <script>on mouseUpif the short name of cd button id 38 is "Select Stack" thenexit mouseUpelseanswer file "Load fieldname list from:" of type TEXTif it ≠ empty thenput it into listnamelock screenopen file listnameread from file listname for 16834if (number of lines of it) ≠¬(number of lines of cd fld "efields") thenbeepanswer "This field list does not match the stack!"elseput it into cd fld "efields"end ifclose file listnameend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>85</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>250</left>
            <top>83</top>
            <right>286</right>
            <bottom>116</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-87</titleWidth>
        <icon>-15648</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Save to Disk</name>
        <script>on mouseUpif the short name of cd button id 38 is "Select Stack" thenexit mouseUpelseask file "Save this fieldname list as:"if it Γëá empty thenput it into filenameopen file filenamewrite cd fld "efields" to file filenameclose file filenameend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>0</top>
            <right>448</right>
            <bottom>296</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Hidden</name>
        <script>on mousedownset the visible of me to falseend mousedown</script>
    </part>
    <part>
        <id>86</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>196</left>
            <top>261</top>
            <right>286</right>
            <bottom>278</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Export RTF?</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>26</id>
        <text>dddd</text>
    </content>
    <content>
        <layer>card</layer>
        <id>30</id>
        <text><span class="style21">             </span><span class="style39">        Exporting Text</span><span class="style38"></span><span class="style14">ΓÇó Select the stack from which you wish to create the export file by hitting the "</span><span class="style21">Select Stack</span><span class="style14">" button. ΓÇó Select the desired background (the first background of the stack is the default). ΓÇó Choose the fields you want to export. They will be exported in the order in which you choose them. Each line of the export field on the left defaults to "None", and is a pop-up menu. You can select all the fields by clicking the "</span><span class="style21">Use All Fields</span><span class="style14">" button. ΓÇó Select the Field and Record delimiters. You may change them by selecting the item "Parameters" in the menu "Go To". Remember that although a carriage return (13) is the usual record delimiter for databases, you will have problems if you have imbedded carriage returns in text fields. You may click the checkbox "</span><span class="style21">Remove CR's from all fields?</span><span class="style14">" to change all carriage returns to spaces, or choose another record delimiter.  If you remove the carriage returns from the fields, the text will no longer be formatted into paragraphs.ΓÇó If you wish to save the field list you created for another export from the same stack (or a stack with identical field names) you can hit the button with the arrow pointing to the diskette. Likewise, you can load a saved field list by hitting the button with the arrow pointing away from the diskette. The Tools will alert you if the field list you have loaded does not match the stack you have chosen.ΓÇó Hit the "</span><span class="style21">Export Stack</span><span class="style14">"</span><span class="style41">  </span><span class="style14">button, create an export file name, and the procedure will export the text. You may choose all cards or only marked cards. If you choose all cards, all cards of the selected background will be exported. The procedure may be aborted at any time by clicking the mouse.</span><span class="style41"></span><span class="style14">      </span><span class="style21">        </span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>42</id>
        <text>FieldDelim</text>
    </content>
    <content>
        <layer>card</layer>
        <id>44</id>
        <text>RecordDelim</text>
    </content>
    <content>
        <layer>card</layer>
        <id>40</id>
        <text>9</text>
    </content>
    <content>
        <layer>card</layer>
        <id>43</id>
        <text>13</text>
    </content>
    <content>
        <layer>card</layer>
        <id>62</id>
        <text><-- Select Fields To Use</text>
    </content>
    <content>
        <layer>card</layer>
        <id>48</id>
        <text>bkgnd id 2568</text>
    </content>
    <name>Export TExt</name>
    <script>---------------Card Operations-------------------------------------on opencardlock screenput cd fld "Field Delimiter" of cd¬"parameters" into cd fld "Field Delimiter"put cd fld "record delimiter" of cd¬"parameters" into cd fld "record Delimiter"if RTFisHere() then show cd btn id 86else hide cd btn id 86end opencardon returnkeyif the visible of cd fld "hidden" is false then send mouseUp to cd button id 38elseclick at 50,50end ifend returnkeyon arrowkey--trapend arrowkey-----  Export Text Operations  -------------------------------------on exportText-- Requires handler: writeExportedTextglobal exportStackglobal fieldendglobal recordendglobal theFieldput empty into message boxdolock(true)put cd fld "background to use" into thisbkgndput true into UseAllCardsanswer "Export which cards?" with "Cancel" or "Marked" or "All"if it is "Cancel" thenput empty into message boxexit exporttextend ifif it is "Marked" then put false into useAllCardsask file "Export text to the file:" with "Export Text File" -- ∆if the result is "Cancel" or it is empty thenput empty into message boxexit exportTextend ifput it into fileNameput getbkfields() into theFieldput numtochar of cd fld "Field Delimiter" into fieldendput numtochar of cd fld "record delimiter" into recordendopen file fileNameput false into ReMCRif the hilite of cd btn id 81 thenput true into ReMCRend ifput false into ConvertRTFif the hilite of cd btn id 86 thenput true into ConvertRTFend ifif the hilite of cd btn "export field header?" thenput empty into theTextrepeat with rr = 1 to (number of items of theField)put item rr of theField into targetfieldput targetfield& fieldend after theTextend repeatwrite theText&recordend to file fileNameend ifpush cardgo exportstackwriteExportedText useAllCards,fileName,thisbkgnd,ReMCR,convertRTFpop carddolock(false)put empty into message boxend exportTexton writeExportedText useAllCards,fileName,thisbkgnd,ReMCR,ConvertRTF-- Requires function handler: theFieldsglobal fieldendglobal recordendglobal theFieldlock screenif useAllCards thengo card 1 of bg thisbkgndput number of cards in this background into numCardselsego first marked cardput number of marked cards into numCardsend ifput false into ExitLoopput 0 into currentCardput the number of items of theField into numfieldsrepeat with currentCard = 1 to numCardsif the mouseClick thenanswer "Stop exporting text?" with "No" or "Yes" --if it is "Yes" thensubtract 1 from CurrentCardexit repeat --end ifend ifset cursor to busyput empty into theTextif not (exitloop) thenrepeat with rr = 1 to numfieldsput item rr of thefield into targetfieldif (ConvertRTF) thenget fieldtoRTF(false, targetfield)if word 1 of it is "error" thenanswer itput true into exitloopexit repeatelseif reMCR then get RemoveCR(it)put it & fieldend after theTextend ifelseif (targetfield contains "bkgnd field id") thendo "get "&targetfieldelseget bg fld targetfieldend ifif reMCR then get RemoveCR(it)put it& fieldend after theTextend ifend repeatend ifput "Card "&currentCard&&"of"&&numcards&&"exported" into message boxwrite theText&recordend to file fileNameif not useAllCards then go next marked cardelse go next card of this bkgndend repeatclose file fileNameput "cards" into infoif numCards = 1 then put "card" into infoanswer "Text from" && currentCard && info && ¬"was exported to the file “" & leafname(fileName) & "”."unlock screenend writeExportedText------------------------Utilties-----------------------------------function GetBkFieldsput empty into theFieldput cd field "efields" into tempput number of lines of temp into numrepeat with rr = 1 to numput line rr of temp into tempfieldif tempfield ≠ "None" and tempfield ≠ empty thenput tempfield & "," after theFieldend ifend repeatreturn theFieldend getBkfieldson toggleTip visStatus,theFieldlock screenif visStatus thenput "open" into theVisEffect-- card field id theField is a hidden field on this cardset the scroll of cd fld id theField to 0 -- scroll to the topelse put "close" into theVisEffectset the visible of cd fld id theField to visStatusset the hilite of cd btn id (id of cd button "About Hiliter") to visStatus -- "about hiliter"unlock screen with visual zoom theVisEffectend toggleTipon DisableItemsset textfont of cd btn "use all fields" to chicago grayput empty into cd fld "Stack Name"set name of cd button id 38 to "Select Stack"set the textfont of cd fld "background to use" to chicago grayput empty into cd field "eFields"hide cd btn "stack chosen label"set the icon of cd button id 84 to "load from disk grey"set the autohilite of cd button id 84 to falseset the icon of cd button id 85 to "save to disk grey"set the autohilite of cd button id 85 to falseset textfont of cd btn "Cancel" to chicago grayend disableItemson enableItemsset name of cd button id 38 to "Export Stack"set the textfont of cd fld "background to use" to chicagoshow cd btn "stack chosen label"set textfont of cd btn "Cancel" to chicagoset the icon of cd button id 84 to "load from disk black"set the autohilite of cd button id 84 to trueset the icon of cd button id 85 to "save to disk black"set the autohilite of cd button id 85to trueinitstackfieldsend enableItemson initstackfieldsglobal fnumfieldsput empty into cd fld "efields"repeat with rr = 1 to fnumfieldsput "None" into line rr of cd field "Efields"end repeatset scroll of cd fld "efields" to 0if fnumfields > 0 thenset textfont of cd btn "use all fields" to chicagoelseset textfont of cd btn "use all fields" to chicago grayend ifend initstackfieldsfunction removeCR textinreturn replace(return," ",textin)end removeCR</script>
</card>


card_18384.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>18384</id>
    <filler1>0</filler1>
    <bitmap>BMAP_6488.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <owner>17972</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>7</left>
            <top>53</top>
            <right>158</right>
            <bottom>262</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>ImportText</name>
        <script></script>
    </part>
    <part>
        <id>2</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>186</left>
            <top>53</top>
            <right>321</right>
            <bottom>262</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <true /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>iFields</name>
        <script>on mouseDownglobal gPopItemsif cd fld "stack name" is empty then exit mousedownget the value of the clicklineif it is empty then exit mouseDownget PopUpMenu(gPopItems,"1",left of me + 1,the MouseV + 12)if item 1 of it is 0 then exit mouseDown -- nothing was selectedput item 2 of it into the clickline -- replace the contents of the fieldend mouseDown</script>
    </part>
    <part>
        <id>71</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>138</left>
            <top>53</top>
            <right>188</right>
            <bottom>262</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Match Fields</name>
        <script></script>
    </part>
    <part>
        <id>26</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <true /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>460</left>
            <top>257</top>
            <right>492</right>
            <bottom>300</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Seps</name>
        <script></script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>366</left>
            <top>133</top>
            <right>411</right>
            <bottom>169</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14289</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Next Record</name>
        <script>on mouseUpif the icon of me is 14289 thenexit mouseUPelseglobal filenameput numtochar of cd fld "Field Delimiter" into fieldendput numtochar of cd fld "record delimiter" into recordendif filename is empty thenbeepexit mouseUpelseif checkfile(filename) thenget readfile (filename, recordend)if it is empty thenbeepset the icon of cd btn id 20 to "search grey"set the autohilite of cd btn id 20 to falseexit mouseUpelserepeat while ((last char of it is fieldend) or (last char of it is recordend))delete last char of itend repeatput replace (return," ",it) into itput replace (fieldend,return,it) into cd field "ImportText"end ifelsebeepend ifend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>338</left>
            <top>9</top>
            <right>440</right>
            <bottom>32</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Select Stack</name>
        <script>on mouseUpglobal importStackglobal fbackPopglobal gPopItemsglobal fbackitemglobal filenameif the short name of me is "Select Stack" thenput "Getting name of stack..." into message boxanswer file "Import text into which stack?" of type "STAK" -- Γêåif it is empty or the result is "Cancel" thendisableitemsput empty into message boxexit MouseUpend ifput it into importstackset cursor to busydolock(true)put leafname(importstack) into tempnameput tempname into cd fld "stack name"put "Getting background names from stack"&&tempname into message boxput cd fld "fields to ignore" of cd "parameters" into Ignoresput replace(return,",",ignores) into ignoresput the name of this card into cardidpush cardgo importstackput "Getting background field names from stack"&&tempname into message boxput getforeignbkgnds() into fbackPopput char 1 to (offset("[",fBackPop) -1) of fbackPop into tempget getbackflds(temp,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into gnumfieldsput char temp1 to length(it) of it into gPopItemsif gnumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(importstack)&"ΓÇ¥ has no background fields!"end ifmyPop(cardid)put temp into cd fld "background to use"put 1 into fbackitemenableItemsput "Initializing fields..." into message boxput "Getting name of text file..." into message boxanswer file "Import text from which file?" of type "Text" -- Γêåif it is empty or the result is "Cancel" thendisableitemsput empty into message boxexit mouseUpend ifput it into fileNameput leafname(filename) into cd fld "File Name"put "Getting first record..." into message boxGetFirstRecordenableItemsdolock(false)put "Match Stack Fields to Fields of Text File..." into message boxelse if the short name of me is "do import" thenImportTextFiledisableitemsend ifend mouseUp</script>
    </part>
    <part>
        <id>40</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>372</left>
            <top>198</top>
            <right>407</right>
            <bottom>216</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter</name>
        <script>on closefieldif ((me is not a number) or (me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"end ifend closefield</script>
    </part>
    <part>
        <id>42</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>361</left>
            <top>168</top>
            <right>421</right>
            <bottom>195</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Field Delimiter Label</name>
        <script></script>
    </part>
    <part>
        <id>43</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>374</left>
            <top>247</top>
            <right>407</right>
            <bottom>264</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter</name>
        <script>on closefieldif ((me is not a number) or (me < 0) or (me > 256)) thenbeepput 0 into meanswer "That value is not permitted. It must be between 0 and 256"end ifend closefield</script>
    </part>
    <part>
        <id>44</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <true /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>362</left>
            <top>218</top>
            <right>422</right>
            <bottom>245</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <textHeight>16</textHeight>
        <name>Record Delimiter Label</name>
        <script></script>
    </part>
    <part>
        <id>28</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>410</left>
            <top>269</top>
            <right>442</right>
            <bottom>290</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>23753</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Illuminate</name>
        <script></script>
    </part>
    <part>
        <id>27</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>409</left>
            <top>270</top>
            <right>442</right>
            <bottom>290</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Palatino</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>About Hiliter</name>
        <script>on mouseUp-- Requires handler: toggleTip-- card field "Hidden" is a hidden field containing the tip infolock screenset the visible of cd fld "Hidden" to trueset scroll of cd fld "hidden" to 0unlock screen with visual zoom open fastend mouseUp</script>
    </part>
    <part>
        <id>62</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>187</left>
            <top>31</top>
            <right>319</right>
            <bottom>50</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>condense</textStyle>
        <textHeight>16</textHeight>
        <name>Background to Use</name>
        <script>on mouseDownglobal fBackPopglobal fcurrentbkgndglobal gPopItemsglobal importStackglobal fBackItemget the textfont of meif it is "chicago gray" then exit mousedownput fbackitem into curmenuitemif curmenuitem is empty then put 1 into curmenuitemget PopUpMenu(fBackPop,curmenuitem,"","-1" ) -- display the pop-up menuset cursor to busyif item 1 of it is 0 then exit mouseDown -- nothing was selectedif item 1 of it is fbackitem then exit mousedownput item 2 of it into me -- replace the contents of the fielddolock(true)put item 1 of it into fbackitemput cd fld "fields to ignore" of cd "parameters" into ignoresput replace(return,",",ignores) into ignoresput me into fbackput the name of this card into cardidpush cardgo to importstackget getbackflds(fback,Ignores)put offset("None[checkmark]",it) into temp1put char 1 to (temp1 - 1) of it into gnumfieldsput char temp1 to length(it) of it into gPopItemsif gnumfields = 0 thenbeepanswer "WARNING: Background ΓÇ£"&temp&"ΓÇ¥ of ΓÇ£"&leafname(importstack)&"ΓÇ¥ has no background fields!"end ifmyPop(cardid)set cursor to busyinitstackfieldsput replace("checkmark","",fBackPop) into fBackPopput replace(me&"[]",me&"[checkmark]",fbackpop) into fBackpopdolock(false)end mouseDown</script>
    </part>
    <part>
        <id>63</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>208</left>
            <top>9</top>
            <right>316</right>
            <bottom>23</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>Stack Name</name>
        <script></script>
    </part>
    <part>
        <id>64</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>188</left>
            <top>8</top>
            <right>209</right>
            <bottom>27</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>65</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>0</left>
            <top>7</top>
            <right>24</right>
            <bottom>25</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12195</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>File Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>66</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>16</left>
            <top>9</top>
            <right>131</right>
            <bottom>24</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>condense</textStyle>
        <textStyle>bold</textStyle>
        <textHeight>12</textHeight>
        <name>File Name</name>
        <script></script>
    </part>
    <part>
        <id>69</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>343</left>
            <top>40</top>
            <right>435</right>
            <bottom>63</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago Gray</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Cancel</name>
        <script>on mouseUpglobal filenameget textfont of meif it is "chicago gray" then exit mouseUplock screendisableitemsif checkfile(filename) then close file filenameput empty into message boxend mouseUp</script>
    </part>
    <part>
        <id>76</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>349</left>
            <top>72</top>
            <right>374</right>
            <bottom>88</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12195</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Label</name>
        <script></script>
    </part>
    <part>
        <id>77</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>401</left>
            <top>71</top>
            <right>422</right>
            <bottom>90</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Label</name>
        <script></script>
    </part>
    <part>
        <id>80</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>331</left>
            <top>268</top>
            <right>367</right>
            <bottom>292</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1011</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go Home</name>
        <script>on mouseUpgo homeend mouseUp</script>
    </part>
    <part>
        <id>83</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>341</left>
            <top>95</top>
            <right>377</right>
            <bottom>128</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-1</titleWidth>
        <icon>20327</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Load from Disk</name>
        <script>on mouseUpif the short name of card button id 38 is "Select Stack" thenexit mouseUPelseglobal filenameanswer file "Load fieldname list from:" of type TEXTif it ≠ empty thenput it into listnamelock screenif (checkfile(filename)) then close file filenameopen file listnameread from file listname for 16834if (number of lines in it) ≠ ¬(number of lines in cd fld "ifields") thenbeepanswer "This field list does not match the stack!"elseput it into cd fld "ifields"put number of lines of cd field "importtext" into numif num < (number of lines of cd field "ifields") thenput line 1 to num of cd fld "ifields" into cd fld "Ifields"end ifclose file listnameend ifgetfirstrecordend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>82</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>391</left>
            <top>96</top>
            <right>427</right>
            <bottom>129</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>-182</titleWidth>
        <icon>-15648</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Save to Disk</name>
        <script>on mouseUpif the short name of card button id 38 is "Select Stack" thenexit mouseUPelseask file "Save this fieldname list as:"if it Γëá empty thenput it into filenameopen file filenamewrite cd fld "ifields" to file filenameclose file filenameend ifend ifend mouseUp</script>
    </part>
    <part>
        <id>74</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>302</left>
            <top>53</top>
            <right>319</right>
            <bottom>293</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>MultiScroll</name>
        <script>on mouseDownglobal initScrollput the rect of me into myRectMultiScroll myRect,"2,card","3,card"put the scroll of card field id 2 into initScrollend mouseDownon mouseWithinMultiScroll Initend mouseWithinon mouseLeaveMultiScroll UnInitend mouseLeave</script>
    </part>
    <part>
        <id>88</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>7</left>
            <top>269</top>
            <right>131</right>
            <bottom>287</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Skip Field Header?</name>
        <script></script>
    </part>
    <part>
        <id>30</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>1</top>
            <right>448</right>
            <bottom>296</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Hidden</name>
        <script>on mousedownset the visible of me to falseend mousedown</script>
    </part>
    <part>
        <id>89</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>187</left>
            <top>269</top>
            <right>289</right>
            <bottom>288</bottom>
        </rect>
        <style>checkbox</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Convert RTF</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>26</id>
        <text>None</text>
    </content>
    <content>
        <layer>card</layer>
        <id>30</id>
        <text><span class="style38">                                               Importing Text</span><span class="style14">ΓÇó Begin by selecting a stack to import text into, using the "</span><span class="style21">Select Stack</span><span class="style14">" button. A procedure will then be run to get the names of all the backgrounds, and will put these into the "Background to Use" pop-up menu. ΓÇó You will then be prompted to select a text file to import. The first record of the text file will be parsed into fields based on the record and field delimiters you have selected in the lower right-hand corner. These delimiters can be changed by selecting the "Parameters" item in the "Go To" menu.ΓÇó You will see the same number of lines in the "field selection" field on the right as there are fields in the import file on the left. Select the fieldnames to use. Each line in the "field selection" field on the right is a pop-up menu, and may be used to select the name of any field name of the selected background. If you hold the mouse button down over any line, and then release it, the line will revert to "None".    If you leave a line in the "field selection" field as "None" the import procedure will ignore the corresponding import field. If you select a background field on the right multiple times, then subsequent import text is imported into that field after the existing text.   You may view the next import record by hitting the right arrow on the card or on the keyboard.   The stack selected and the import file selected are both shown at the top.ΓÇó If you wish to save the field list you created for another import from the same stack (or a stack with identical field names) you can hit the button with the arrow pointing to the diskette. Likewise, you can load a saved field list by hitting the button with the arrow pointing away from the diskette. The Tools will alert you if the field list you have loaded does not match the stack you have chosen.ΓÇó If you then hit the "</span><span class="style21">Do Import</span><span class="style14">" button, the import process begins. Each record is put into a new card and text is mapped into fields as specified by you. The message box keeps you informed of the progress of the import. You may abort the process at any time by clicking the mouse.ΓÇó You may begin the selection process over by hitting the "Cancel" button.</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>42</id>
        <text>Field Delimiterer</text>
    </content>
    <content>
        <layer>card</layer>
        <id>44</id>
        <text>RecordDelimiter</text>
    </content>
    <content>
        <layer>card</layer>
        <id>40</id>
        <text>9</text>
    </content>
    <content>
        <layer>card</layer>
        <id>43</id>
        <text>13</text>
    </content>
    <content>
        <layer>card</layer>
        <id>62</id>
        <text>Body</text>
    </content>
    <name>Import Text</name>
    <script>---------------Card Operations---------------------------------on arrowkey whichkeyif whichkey is "right" then send mouseup to cd button "Next Record"else beepend arrowkeyon opencardput cd fld "Field Delimiter" of cd ¬"parameters" into cd fld "Field Delimiter"put cd fld "record delimiter" of cd ¬"parameters" into cd fld "record Delimiter"if RTFisHere() thenshow card button "Convert RTF"elsehide card button "Convert RTF"end ifend opencardon idleglobal initScrollrepeat with i = 1 to 2get the scroll of card field iif it is not initScroll thenput it into initScrollMultiScroll it,"2,card","3,card"end ifend repeatpass idleend idleon returnkeyif the visible of cd fld "hidden" is false then send mouseUp to cd button id 38elseclick at 50,50end ifpass returnkeyend returnkey----------Import Text Operations-------------------------------------on importTextFileglobal filenameglobal importstackset cursor to busydolock(true)put "Setting up parameters for import..." into message boxput cd fld "background to use" into mybackput getBKfields() into theFieldput number of items in theField into NumImFieldsput numtochar of cd fld "Field Delimiter" into fieldendput numtochar of cd fld "record delimiter" into recordendput false into abortedif (checkfile(filename)) then close file filenameopen file filenameput false into exitLoopput the name of this card into cardidput false into aheaderif (the hilite of cd btn id 88) thenput true into aheaderend ifput false into ConvertRTFif (the hilite of cd btn "Convert RTF") thenput true into ConvertRTFend ifpush cardgo to importstackgo to last card of bkgnd mybackput 0 into ImpNumif (aheader) thenget readfile (filename, recordend)end ifrepeat until exitLoopif the mouseClick thenanswer "Stop importing text?" with "No" or "Yes" --if it is "Yes" then exit repeat --end ifsend "doMenu New Card" to HyperCardput empty into temprepeat with rr = 1 to NumImFieldsput item rr of theField into targetfieldif (NumImFields is 1) thenget readfile (filename, recordend)if it is empty thensend "doMenu Delete Card" to HyperCardput true into exitLoopexit repeatend ifelse if rr is 1 thenget readfile (filename, fieldend)if it is empty thensend "doMenu Delete Card" to HyperCardput true into exitLoopexit repeatend ifelse if rr < NumImFields thenget readfile (filename, fieldend)else if rr is NumImFields thenget readfile (filename, recordend)end ifput it into temprepeat while ((last char of temp is fieldend) or (last char of temp is recordend))delete last char of tempend repeatif targetfield ≠ empty then----------------------RTF-----------------------------if ConvertRTF thendo "get RTFtoField (temp, false, "&quote&targetfield&quote&")"if it <> "" thenanswer itput true into exitloopexit repeatend if----------------------------RTF-----------------------------elseif (targetfield contains "bkgnd field id") thenif ((targetfield is empty)  or (temp ≠ "true") or (temp ≠ "false")) thendo "put temp into "&targetfieldelsedo "put return&temp after "&targetfieldend ifelseif ((bkgnd field targetfield is empty)  or (temp ≠ "true") or (temp ≠ "false")) thendo "put temp into bkgnd field "&quote&targetfield&quoteelsedo "put return&temp after bkgnd field "&quote&targetfield&quoteend ifend ifend ifend ifend repeatif not (exitloop) thenadd 1 to impnumput "Record "&impnum&&"imported" into message boxend ifend repeatclose file fileNamebeepif not(aborted) thenanswer "Text from" && impnum &&¬"records was imported into stack “" & leafname(importstack) & "” from text file “"& leafname(filename)&"”." -- ∆end ifmypop(cardid)dolock(false)end importTextFile------------------------Utilties-----------------------------------on GetFirstRecordglobal filenamelock screenif filename ≠ empty thenput numtochar of cd fld "Field Delimiter" into fieldendput numtochar of cd fld "record delimiter" into recordendopen file fileNameput readfile (filename, recordend) into tempdelete the last character of tempput replace (return," ",temp) into tempput replace(fieldend,return,temp) into cd fld "importText"end ifend GetFirstRecordon toggleTip visStatus,theFieldlock screenif visStatus thenput "open" into theVisEffect-- card field id theField is a hidden field on this cardset the scroll of cd fld id theField to 0 -- scroll to the topelse put "close" into theVisEffectset the visible of cd fld id theField to visStatusset the hilite of cd btn id (id of cd button "About Hiliter") to visStatus -- "about hiliter"unlock screen with visual zoom theVisEffectend toggleTipon DisableItemslock screenset name of cd button id 38 to "Select Stack"put empty into cd fld "Stack Name"set the textfont of cd fld "background to use" to chicago grayput empty into cd fld "File Name"set the icon of cd button id 20 to "Search Grey"set the autohilite of cd btn id 20 to falseput empty into cd field "importtext"put empty into cd field "Ifields"put empty into cd field "Match Fields"hide cd btn "multiscroll"set the icon of cd button id 83 to "load from disk grey"set the autohilite of cd button id 82 to falseset the icon of cd button id 82 to "save to disk grey"set the autohilite of cd button id 83 to falsehide cd btn "file Chosen Label"hide cd btn "stack chosen label"set the textfont of cd btn "Cancel" to chicago grayend DisableItemson enableItemslock screenglobal initscrollset name of cd button id 38 to "Do Import"set the icon of cd button id 20 to "Search black"set the autohilite of cd btn id 20 to trueset the textfont of cd fld "background to use" to chicagoset the icon of cd button id 83 to "load from disk black"set the autohilite of cd button id 83 to trueset the icon of cd button id 82 to "save to disk black"set the autohilite of cd button id 82 to trueshow cd button "multiscroll"show cd btn "file Chosen Label"show cd btn "stack chosen label"set the textfont of cd btn "Cancel" to chicagoinitstackfieldsput 0 into initScrollMultiScroll 0,"2,card","3,card"end enableItemson initstackfields paramput empty into cd field "ifields"put empty into cd field "match fields"put (number of lines of cd field "importtext") into numrepeat with rr = 1 to numput "None" into line rr of cd field "ifields"end repeatput min(20,num) into anumrepeat with rr = 1 to anumput "----->" into line rr of cd field "match fields"end repeatend initstackfieldsfunction GetBkFieldsput empty into theFieldput cd field "ifields" into tempput number of lines of temp into numrepeat with rr = 1 to numput line rr of temp into tempfieldif tempfield ≠ "None" and tempfield ≠ empty thenput tempfield & "," after theFieldelseput "," after theFieldend ifend repeatreturn theFieldend getBkfields</script>
</card>


card_4384.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>4384</id>
    <filler1>0</filler1>
    <bitmap>BMAP_5294.pbm</bitmap>
    <cantDelete> <true /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <true /> </dontSearch>
    <owner>2959</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_6249.css" />
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>23</left>
            <top>169</top>
            <right>232</right>
            <bottom>186</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>Word Path</name>
        <script></script>
    </part>
    <part>
        <id>5</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>368</left>
            <top>9</top>
            <right>419</right>
            <bottom>47</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>14767</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Hide About</name>
        <script>on mouseUplock screenif (the visible of cd fld "about 1") thenset visible of cd fld "about 1" to falseelseset visible of cd fld "about 1" to trueset the scroll of cd fld "about 1" to 0end ifend mouseUp</script>
    </part>
    <part>
        <id>6</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>5</left>
            <top>4</top>
            <right>281</right>
            <bottom>284</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>14</textHeight>
        <name>About 1</name>
        <script>on mousedownset visible of me to falseend mousedown</script>
    </part>
    <part>
        <id>10</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>223</top>
            <right>351</right>
            <bottom>242</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>11</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>327</left>
            <top>248</top>
            <right>348</right>
            <bottom>267</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>382</left>
            <top>195</top>
            <right>403</right>
            <bottom>214</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>13</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>382</left>
            <top>248</top>
            <right>403</right>
            <bottom>267</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1000</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>14</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>327</left>
            <top>195</top>
            <right>352</right>
            <bottom>211</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12195</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>381</left>
            <top>223</top>
            <right>406</right>
            <bottom>239</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>12195</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Stack Chosen Label</name>
        <script></script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>320</left>
            <top>188</top>
            <right>407</right>
            <bottom>217</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpdomenu "Import Text"end mouseUp</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>320</left>
            <top>220</top>
            <right>409</right>
            <bottom>244</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpdomenu "Export text"end mouseUp</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>320</left>
            <top>246</top>
            <right>407</right>
            <bottom>270</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name></name>
        <script>on mouseUpdomenu "stack -> stack"end mouseUp</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>299</left>
            <top>8</top>
            <right>363</right>
            <bottom>48</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1011</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Go Home</name>
        <script>on mouseUpgo homeend mouseUp</script>
    </part>
    <content>
        <layer>background</layer>
        <id>2</id>
        <text><span class="style51">mport/ExportTools</span><span class="style53">for HyperCard 2.x</span></text>
    </content>
    <content>
        <layer>background</layer>
        <id>3</id>
        <text><span class="style24">y Robert Murray© 1992 Massachusetts Instituteof TechnologyVersion 2.2This is the last update. Please readattached notes.</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>4</id>
        <text>Robert Murray:Microsoft Word</text>
    </content>
    <content>
        <layer>card</layer>
        <id>6</id>
        <text><span class="style37"> </span><span class="style42">     </span><span class="style43">Hypercard   </span><span class="style42">       </span><span class="style43">Import/Export</span><span class="style37">       </span><span class="style43">     2.x                             Tools</span><span class="style37"></span><span class="style21">        </span><span class="style64">    These tools were created to make importing and exporting text in and out of Hypercard easier to do.  They give you the option of choosing which fields to use, field order, background, field and record delimiters,  etc.    There are some excellant commercial programs which do this and more, but those of you who do not need their power might find this stack useful.    This stack is freeware, with the restrictions listed at the bottom of this field.</span><span class="style14">   </span><span class="style64">   This will be the last update as I am no longer doing HyperCard work (and haven't been for the last year). If anyone else wants to do updates to the code, please be my guest, but include the notice at the bottom so my boss stays happy.</span><span class="style14"></span><span class="style65">                    RTF Notes:</span><span class="style64">   You can do RTF with this stack, but you must get the shareware externals from:</span><span class="style14"></span><span class="style60">    Differential Development    P.O. Box 1044    Harvard Square Station    Cambridge, MA 02238</span><span class="style64">to make this work. You can get further info by downloading the stack "Hypercard RTF" from SUMEX.    If you tell the Tools to convert RTF on either import or export, the completion time increases greatly, so use this feature with caution. </span><span class="style65">                    Delimiters:</span><span class="style64">   When choosing field and record delimiters, remember that most databases and  spreadsheets use tab (9) for the field delimiter and return (13) for the record delimiter. Some databases allow you to choose any delimiters, and this is useful if you are dealing with text fields with embedded carriage returns, and thus do not want to use return (13) as the record delimiter.   You can change the delimiters by choosing the "Parameters" item in the "Go To" menu.   Also on the "Parameters" card there is a field where you can list keywords to ignore when my procedure gets a list of background field names. I have included this feature so the field list will not include shared text labels which do not change from card to card in the background. If you create your stacks so that all shared text fields have common keywords as in "Name Label" or "Address Label", this feature will come in handy.</span><span class="style60">       These tools were developed at the MIT Media Lab by Robert Murray, and are being released for non-commercial use with the consent of Nicholas Negroponte, Director, The MIT Media Lab.  They shall not be used, rewritten, or adapted as the basis of a commercial software product without first obtaining appropriate licenses from MIT. They are provided "as is" without express or implied warranty.   Permission to use, copy, or modify this stack without fee is hereby granted, provided that this copyright notice appears on all copies and supporting documentation.   </span><span class="style14">  </span><span class="style64">Robert Murray   MIT Media Lab   20 Ames Street E15-468B   Cambridge, MA 02139   Phone: [phone]   Internet:   [e-mail]     Compuserve: 76666,726</span><span class="style14"></span><span class="style60">   Thanks to</span><span class="style24"> Oscar F. Hills</span><span class="style60">  for the use of his XCMD </span><span class="style24">MultiScroll</span><span class="style60">. The XCFN </span><span class="style24">Replace</span><span class="style60"> is </span><span class="style24">©1989-90 Jon Wind</span><span class="style60">. The XCFN </span><span class="style24">PopUpMenu</span><span class="style60">, is </span><span class="style24">© Bill Fernandez 1989</span><span class="style60">.</span><span class="style14">   </span><span class="style21">            </span><span class="style24">   (Click here)</span></text>
    </content>
    <name>First</name>
    <script>on opencarduncheckitemsend opencardon returnkeyclick at 50,50pass returnkeyend returnkeyon closecardif the visible of cd fld "about 1" is true thenlock screenset the visible of cd fld "about 1" to falseend ifend closecard</script>
</card>